﻿Imports Logica
Public Class FormPrueba

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim obj As New AgregarMovimiento(0)

        obj.ShowDialog()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim obj As New AsignarBonificacionMetas("1-1429-0809")
        obj.ShowDialog()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim obj As New AsignarBonificacionGeneral("1-1429-0809")
        obj.ShowDialog()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MainForm.ShowDialog()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim id As String = "1-1429-0809"

        'If Not Gestor.consultarTipoSalario(id) = 1 Then

        Dim obj As New AsignarSalarioVariable(id)
        obj.ShowDialog()
        'Else
        MsgBox("Posee un tipo de salario no variable", MsgBoxStyle.Information, "Retroalimentación")
        'End If
    End Sub
End Class